home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / fcntl.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  946 b   |  36 lines
  1. if (!defined &_FCNTL) {
  2.     eval 'sub _FCNTL {1;}';
  3.     require 'cfuncproto.ph';
  4.     eval 'sub O_RDONLY {000;}';
  5.     eval 'sub O_WRONLY {001;}';
  6.     eval 'sub O_RDWR {002;}';
  7.     eval 'sub O_NDELAY { &FNDELAY;}';
  8.     eval 'sub O_APPEND { &FAPPEND;}';
  9.     eval 'sub O_CREAT { &FCREAT;}';
  10.     eval 'sub O_TRUNC { &FTRUNC;}';
  11.     eval 'sub O_EXCL { &FEXCL;}';
  12.     if (!defined &F_DUPFD) {
  13.     eval 'sub F_DUPFD {0;}';
  14.     eval 'sub F_GETFD {1;}';
  15.     eval 'sub F_SETFD {2;}';
  16.     eval 'sub F_GETFL {3;}';
  17.     eval 'sub F_SETFL {4;}';
  18.     eval 'sub F_GETOWN {5;}';
  19.     eval 'sub F_SETOWN {6;}';
  20.     eval 'sub F_GETLK {7;}';
  21.     eval 'sub F_SETLK {8;}';
  22.     eval 'sub F_SETLKW {9;}';
  23.     eval 'sub F_RGETLK {10;}';
  24.     eval 'sub F_RSETLK {11;}';
  25.     eval 'sub F_CNVT {12;}';
  26.     eval 'sub F_RSETLKW {13;}';
  27.     eval 'sub FNDELAY {00004;}';
  28.     eval 'sub FAPPEND {00010;}';
  29.     eval 'sub FASYNC {00100;}';
  30.     eval 'sub FCREAT {01000;}';
  31.     eval 'sub FTRUNC {02000;}';
  32.     eval 'sub FEXCL {04000;}';
  33.     }
  34. }
  35. 1;
  36.